home *** CD-ROM | disk | FTP | other *** search
/ Publication 23 / Publication_23_19xx_Civitas_de.d64 / driage .... (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  11KB  |  483 lines
  1. 0 r=30:fort=24to0step-1:poke781,t:sys59903:gosub13:next
  2. 1 poke53280,0:poke53281,0
  3. 2 fora=1to 90:next
  4. 3 poke53280,11:poke53281,11
  5. 4 fora=1to 90:next
  6. 5 poke53280,12:poke53281,12
  7. 6 fora=1to 90:next
  8. 7 poke53280,1:poke53281,1
  9. 8 fora=1to 90:next
  10. 9 poke53280,12:poke53281,12
  11. 10 fora=1to 90:next
  12. 11 print"[147]":poke53280,11:poke53281,11:goto20
  13. 13 forx=1tor:next:return
  14. 20 forx=1to23:poke214,5:poke211,x:sys58640:print"[157]  t . u . m . "
  15. 21 poke214,9:poke211,x-1:sys58640:print"[157] p r e s e n t s":fora=0to30:next:next
  16. 30 forx=23to14step-1:poke214,5:poke211,x:sys58640:print"  t . u . m . "
  17. 31 poke214,9:poke211,x-1:sys58640:print"p r e s e n t s ":fora=0to30:next:next
  18. 35 print"[147]":poke53280,11:poke53281,11
  19. 37 fora=1to 90:next
  20. 40 poke53280,12:poke53281,12
  21. 42 fora=1to 90:next
  22. 45 poke53280,1:poke53281,1
  23. 47 fora=1to 90:next
  24. 50 poke53280,12:poke53281,12
  25. 52 fora=1to 90:next
  26. 55 poke53280,11:poke53281,11
  27. 57 fora=1to 90:next
  28. 60 poke53280,0:poke53281,0
  29. 61 fory=2to10:poke214,y-1:poke211,15:sys58640:print"      "
  30. 62 poke214,y:poke211,15:sys58640:print"driage":next
  31. 69 fora=1to2:forb=0to20
  32. 70 print"    *"
  33. 80 print" *  *  *"
  34. 90 print"  *[160]* *"
  35. 100 print"   ***"
  36. 110 print"*********"
  37. 120 print"   ***"
  38. 130 print"  * * *"
  39. 140 print" *  *  *"
  40. 150 print"    *"
  41. 160 print"    +"
  42. 170 print" +  +  +"
  43. 180 print"  +[160]+ +"
  44. 190 print"   +++"
  45. 200 print"+++++++++"
  46. 210 print"   +++"
  47. 220 print"  + + +"
  48. 230 print" +  +  +"
  49. 240 print"    +"
  50. 250 next:print"follow the t.u.m. star":next
  51. 260 print"[147]":print:print:print:print"colour-cycler in basic !":e=0:foro=1to3
  52. 270 forx=1560to1576
  53. 280 pokex,160:next
  54. 290 forc=55832to55848
  55. 300 pokec,e:e=e+1:ife=254thenc=55848:goto330
  56. 310 next
  57. 320 goto290
  58. 330 forc=55848to55832step-1
  59. 340 pokec,e:e=e-1:ife=0thenc=55832:nexto:goto370
  60. 350 next
  61. 360 goto330
  62. 370 print"[147]":poke53280,1:poke53281,1
  63. 380 print:print:print:print"[144]basic v2.0"
  64. 390 print:fora=1to1000:next:print"no past"
  65. 400 print:fora=1to1000:next:print"future"
  66. 410 print:fora=1to1000:next:print"result"
  67. 420 print:fora=1to200:next:print"[147]"
  68. 430 print"[147]":poke53280,11:poke53281,11
  69. 440 fora=1to 90:next
  70. 450 poke53280,12:poke53281,12
  71. 460 fora=1to 90:next
  72. 470 poke53280,1:poke53281,1
  73. 480 fora=1to 90:next
  74. 490 poke53280,12:poke53281,12
  75. 500 fora=1to 90:next
  76. 510 poke53280,11:poke53281,11
  77. 520 fora=1to 90:next
  78. 530 poke53280,0:poke53281,0
  79. 539 print"[147]":print:print:print:print:
  80. 540 print:print:print:print:print:print:print"t.u.m. kixx again"
  81. 550 fora=1to500:next
  82. 560 print"[147]":dimy(35):n=4:g=54272
  83. 570 forf=1to3:n=4
  84. 580 forq=1044to2024step40
  85. 590 x=int(sin(q/100)*10+q)
  86. 600 pokex,81:pokex+54272,1:pokey(n-1)+g,15:pokey(n-2)+g,12:pokey(n-3)+g,11
  87. 610 pokey(n-4)+g,0
  88. 620 y(n)=x:n=n+1:next
  89. 630 pokey(n-4)+g,0:pokey(n-3)+g,11:pokey(n-2)+g,12:pokey(n-1)+g,15
  90. 640 pokey(n-3)+g,0:pokey(n-2)+g,11:pokey(n-1)+g,15
  91. 650 pokey(n-2)+g,0:pokey(n-1)+g,11
  92. 660 pokey(n-1)+g,0
  93. 670 next
  94. 680 print"[147]":print:print
  95. 690 print"t.u.m. wants to greet"
  96. 691 fora=1to500:next
  97. 700 print:print"smash-designs"
  98. 701 fora=1to500:next
  99. 710 print:print"oxyron"
  100. 711 fora=1to500:next
  101. 720 print:print"[156]t.o.m."
  102. 721 fora=1to500:next
  103. 730 print:print"[158]reflex"
  104. 731 fora=1to500:next
  105. 740 print:print"[159]civitas"
  106. 741 fora=1to500:next
  107. 750 print:print"seminar"
  108. 751 fora=1to500:next
  109. 760 b(1)=46:b(2)=108:b(3)=160:a=1560
  110. 770 print"[147]"
  111. 780 f(1)=0:f(2)=11:f(3)=12:e=55832
  112. 790 forui=1to10:forz=1to3:forw=1to80:next
  113. 800 pokea,b(z):pokea+1,b(z):pokea+40,b(z):pokea+41,b(z)
  114. 810 pokee,f(z):pokee+1,f(z):pokee+40,f(z):pokee+41,f(z)
  115. 820 next
  116. 830 forz=3to18step-1:forw=1to80:next
  117. 840 pokea,b(z):pokea+1,b(z):pokea+40,b(z):pokea+41,b(z)
  118. 850 pokee,f(z):pokee+1,f(z):pokee+40,f(z):pokee+41,f(z)
  119. 860 next
  120. 870 next
  121. 880 print"[147]":poke53280,6:poke53281,6
  122. 890 print:print:print:print:print
  123. 900 fora=1to17:reada$:fort=0to100:next:printa$;:next:print"":goto920
  124. 910 data x,=,s,i,n,(,q,/,1,0,),*,1,0,+,2,0
  125. 920 fora=1to17:reada$:fort=0to100:next:printa$;:next:print"":goto940
  126. 930 data y,=,c,o,s,(,q,/,1,0,),*,1,0,+,1,2
  127. 940 fora=1to9:reada$:fort=0to100:next:printa$;:next:print"":goto960
  128. 950 data p,o,k,e,2,1,4,y,a
  129. 960 fora=1to6:reada$:fort=0to100:next:printa$;:next:print"":goto971
  130. 970 data z,z,z,.,.,.
  131. 971 fora=1to1000:next
  132. 980 print"[147]":poke53280,0:poke53281,0
  133. 990 forq=1to60
  134. 1000 x=sin(q/10)*10+20
  135. 1010 y=cos(q/10)*10+12
  136. 1020 poke214,ya:poke211,xa:sys58640:print"       "
  137. 1030 poke214,y:poke211,x:sys58640:print"basic"
  138. 1040 xa=x:ya=y
  139. 1050 next:ya=0:xa=0:print"[147]"
  140. 1060 forq=1to64
  141. 1070 x=sin(q/10)*10
  142. 1080 y=cos(q/10)*10
  143. 1090 poke214,ya+12:poke211,xa+20:sys58640:print"       "
  144. 1100 poke214,y+12:poke211,x+20:sys58640:print"basic"
  145. 1109 poke214,ya*(-1)+12:poke211,xa*(-1)+20:sys58640:print"        "
  146. 1110 poke214,y*(-1)+12:poke211,x*(-1)+20:sys58640:print"rulez"
  147. 1120 xa=x:ya=y
  148. 1130 next
  149. 1140 print"[147]"
  150. 1150 printspc(16)"basic-":print
  151. 1160 print"                          "
  152. 1170 print"                            "
  153. 1180 print"                "
  154. 1190 print"             "
  155. 1200 print"           "
  156. 1210 print"             "
  157. 1220 print"                "
  158. 1230 print"                    "
  159. 1240 print"                  "
  160. 1250 forx=55337to55373:fory=0to11
  161. 1260 pokex-1+(y*40),1:pokex+(y*40),7:next:next
  162. 1270 forx=55373to55296step-1:fory=0to11
  163. 1280 pokex+1+(y*40),1:pokex+(y*40),7:next:next
  164. 1290 fory=11to0step-1:forx=55337to55373
  165. 1300 pokex+y*40,15:pokex+(y+1)*40,12:pokex+(y+2)*40,11:pokex+(y+3)*40,0:next
  166. 1310 next:print"[147]"
  167. 1320 poke53281,14:print"[147]":ad=1024
  168. 1330 forw=0to4
  169. 1340 forq=0to7
  170. 1350 fory=0to4:forx=adtoad+4:pokex+y*40,160:pokex+y*40+54272,6
  171. 1360 next:next:ad=ad+5:next:ad=ad+160:next
  172. 1370 print"[147]":poke53280,0:poke53281,0
  173. 1380 print"this is basic no"
  174. 1390 print"assembler !!! but why"
  175. 1400 print"we don't rule in basic ?"
  176. 1410 fora=1to5000:next
  177. 1420 print"[147]":print"interpolation fire"
  178. 1430 print"in basic ?"
  179. 1431 fora=1to5000:next
  180. 1440 print"[147]":f(1)=1:f(2)=11:f(3)=12:f(4)=15:f(5)=0
  181. 1450 fora=0to39
  182. 1460 poke56265+a,f(int(rnd(0)*5)+1):poke1984+a,160
  183. 1470 next
  184. 1480 fory=56216to55776step-40
  185. 1490 forx=0to39
  186. 1500 z=int(sqr((peek(y+x+41)+peek(y+x-1))^2)/2)
  187. 1510 ifz<>0thenz=z-1
  188. 1520 poke(y+x),f(int(z/25))
  189. 1530 poke(y-54272)+x,160
  190. 1540 next:next
  191. 1550 fora=1to23
  192. 1560 print"[144][145]                                        [146]":next
  193. 1570 print"[147]":print"hard to code :)"
  194. 1580 fora=1to500:next:print"[147]"
  195. 1581 poke53280,6:poke53281,6
  196. 1590 ad=1304:forq=1to11
  197. 1600 fora=adtoad+39:pokea,99:next
  198. 1610 fora=adtoad+39:pokea,119:next
  199. 1620 fora=adtoad+39:pokea,120:next
  200. 1630 fora=adtoad+39:pokea,249:next
  201. 1640 fora=adtoad+39:pokea,239:next
  202. 1650 fora=adtoad+39:pokea,228:next
  203. 1660 fora=adtoad+39:pokea,160:next
  204. 1670 ad=ad+40:next
  205. 1680 poke1520,20:poke1521,32:poke1522,21:poke1523,32:poke1524,13
  206. 1690 ad=1744:forq=1to11
  207. 1700 fora=adtoad+39:pokea,99:next
  208. 1710 fora=adtoad+39:pokea,119:next
  209. 1720 fora=adtoad+39:pokea,120:next
  210. 1730 fora=adtoad+39:pokea,249:next
  211. 1740 fora=adtoad+39:pokea,239:next
  212. 1750 fora=adtoad+39:pokea,228:next
  213. 1760 fora=adtoad+39:pokea,160:next
  214. 1770 ad=ad-40:next
  215. 1790 print"do you like snow-borders ?"
  216. 1800 fork=0to12:forx=k*1.6to39-k*1.6
  217. 1810 poke1024+x+k*40,32
  218. 1820 poke1984+x-k*40,32
  219. 1830 nextx
  220. 1840 fory=kto24-k
  221. 1850 poke1024+k*1.6+y*40,32
  222. 1860 poke1063-k*1.6+y*40,32
  223. 1870 nexty,k
  224. 1880 print"[144][147]":b=0:d=0
  225. 1889 fortumirnix=1to10
  226. 1890 poke53280,1:poke53281,1:print"[147]"
  227. 1900 fora=0tob:print"";:next
  228. 1910 forc=0tod:print"";:next
  229. 1920 print"  [213][195][201]";:printspc(34)
  230. 1930 print"   [194] [171]";:printspc(34)
  231. 1940 print"   [202][178][203]";:printspc(34)
  232. 1960 print"   [213][219][201]";:printspc(34)
  233. 1970 print"   [194][194][194]";:printspc(34)
  234. 1980 print"   [219][194][219]";:printspc(34)
  235. 1990 print"    [194] ";:printspc(34)
  236. 2000 print"   [213][177][201]";:printspc(34)
  237. 2010 print"   [194] [194]";:printspc(34)
  238. 2020 print"   [194] [194]";:printspc(34)
  239. 2030 print"[195][195][195][177][195][177][195][195][203]"
  240. 2040 b=b+1:d=d+3:next
  241. 2050 print"[147]":poke53280,3:poke53281,5
  242. 2070 print"[147]":print"nine ?"
  243. 2080 fora=1to1500:next
  244. 2090 print"[147]":print"doch !"
  245. 2100 fora=1to1500:next
  246. 2110 rem:tum kixx more alk than you ever         can drink ... boorps
  247. 2120 poke53280,6:poke53281,6:print"[147]"
  248. 2130 print"[255] =";:fora=1to1000:next:print"3";:fora=1to1000:next:
  249. 2140 print",";:fora=1to1000:next:print"1";:fora=1to1000:next
  250. 2150 print"4";:fora=1to1000:next:print".";:fora=1to1000:next
  251. 2160 print".";:fora=1to1000:next:print".";:fora=1to1000:next
  252. 2170 poke53280,6:poke53281,6:print"[147]"
  253. 2180 print"[147]":print"who cares ?"
  254. 2190 fora=1to1000:next
  255. 2200 print"[147]":poke53280,0:poke53281,0:forc=1to20
  256. 2210 print"[161]
  257. 2220 [153]"get
  258. 2230 print"[161]
  259. 2240 [153]"get(NULL)
  260. 2250 print"[161]                  [161]
  261. 2260 [153]"                   get
  262. 2270 print"                   [161]
  263. 2280 [153]"                   get
  264. 2290 print"                   [161]
  265. 2300 [129]a[178]1[164]90:[130]:[153]"load"
  266. 2310 [153]"
  267. 2320 print"[161]
  268. 2330 [153]"get                  get
  269. 2340 print"[161]                  [161]
  270. 2350 [153]"get    (NULL)             get
  271. 2360 print"[161]                  [161]
  272. 2370 [153]"                   get
  273. 2380 print"
  274. 2390 [153]"
  275. 2400 fora=1to90:next:print"[147]"
  276. 2410 print"[161]
  277. 2420 [153]"get
  278. 2430 print"[161]
  279. 2440 [153]"get                  get
  280. 2450 print"[161]                  [161]
  281. 2460 [153]"get                  get
  282. 2470 print"           [209]       [161]
  283. 2480 [153]"                   get
  284. 2490 print"
  285. 2500 [129]a[178]1[164]90:[130]:[153]"load"
  286. 2510 [153]"get
  287. 2520 print"[161]
  288. 2530 [153]"get
  289. 2540 print"[161]
  290. 2550 [153]"get                  get
  291. 2560 print"                   [161]
  292. 2570 [153]"                   get
  293. 2580 print"                   [161]
  294. 2590 [153]"                  (NULL)get
  295. 2600 fora=1to90:next:print"[147]"
  296. 2610 print"
  297. 2620 [153]"get
  298. 2630 print"[161]
  299. 2640 [153]"get                  get
  300. 2650 print"[161]                  [161]
  301. 2660 [153]"get                  get
  302. 2670 print"           [209]       [161]
  303. 2680 [153]"                   get
  304. 2690 print"
  305. 2700 [129]a[178]1[164]90:[130]:[153]"load"
  306. 2710 [153]"
  307. 2720 print"[161]
  308. 2730 [153]"get                  get
  309. 2740 print"[161]                  [161]
  310. 2750 [153]"get    (NULL)             get
  311. 2760 print"[161]                  [161]
  312. 2780 [153]"                   get
  313. 2790 print"
  314. 2800 [129]a[178]1[164]90:[130]:[153]"load":[130]c
  315. 2810 [153]"get
  316. 2820 print"[161]                  [161]
  317. 2830 [153]"get                  get
  318. 2840 print"[161]                  [161]
  319. 2850 [153]"get(NULL)                 get
  320. 2860 print"                   [161]
  321. 2880 [153]"
  322. 2890 print"
  323. 2900 [129]a[178]1[164]90:[130]:[153]"load"
  324. 2910 [153]"get                  get
  325. 2920 print"[161]                  [161]
  326. 2930 [153]"get                  get
  327. 2940 print"[161]                  [161]
  328. 2950 [153]"                   get
  329. 2960 print"     [209]
  330. 2980 [153]"
  331. 2990 print"
  332. 3000 [129]a[178]1[164]90:[130]:[153]"load"
  333. 3010 [153]"get                  get
  334. 3020 print"[161]                  [161]
  335. 3030 [153]"get                  get
  336. 3040 print"                   [161]
  337. 3050 [153]"
  338. 3060 print"
  339. 3080 [153]"
  340. 3090 print"              [209]
  341. 3100 [129]a[178]1[164]90:[130]:[153]"load"
  342. 3110 [153]"get                  get
  343. 3120 print"[161]                  [161]
  344. 3130 [153]"get                  get
  345. 3140 print"
  346. 3150 [153]"
  347. 3160 print"
  348. 3180 [153]"
  349. 3190 print"
  350. 3200 [153]"
  351. 3210 print"
  352. 3220 [153]"
  353. 3230 print"
  354. 3240 [153]"                    (NULL)
  355. 3250 fora=1to90:next:print"[147]"
  356. 3310 print"[161]                  [161]
  357. 3320 [153]"get                  get
  358. 3330 print"
  359. 3340 [153]"
  360. 3350 print"
  361. 3360 [153]"
  362. 3380 print"
  363. 3390 [153]"
  364. 3400 print"
  365. 3410 [153]"
  366. 3420 print"
  367. 3430 [153]"
  368. 3440 print"
  369. 3450 [153]"
  370. 3460 print"
  371. 3470 [153]"
  372. 3480 print"
  373. 3490 [153]"                           (NULL)
  374. 3500 print"[147]"
  375. 3510 fora=1to1000:next
  376. 3520 print"the ultimate majas want to greet again "
  377. 3530 fora=1to1000:next
  378. 3540 print"some more groups :) ..."
  379. 3550 fora=1to1000:next
  380. 3560 print"digital talk"
  381. 3570 print"mail madness"
  382. 3580 print"tiger-crew ... hallo winni ..."
  383. 3590 print"paradize"
  384. 3600 print"msi"
  385. 3610 print"xfr"
  386. 3620 print"censor designs"
  387. 3630 print"focus"
  388. 3640 print"legend"
  389. 3650 print"blutpopel ... hy heinmueck"
  390. 3660 print"willow ... tach auch floyd"
  391. 3690 print"byterapers"
  392. 3700 print"teg"
  393. 3710 print"agony"
  394. 3720 print"farilight"
  395. 3730 print"w.o.w"
  396. 3740 print"wrath designs"
  397. 3750 print"alphflight 1970"
  398. 3760 print"visual reality"
  399. 3770 print"creatures"
  400. 3780 print"no name"
  401. 3790 print"camelot"
  402. 3800 print"shape"
  403. 3810 print"-g tech"
  404. 3820 print"tengu"
  405. 3830 print"pengo-party-posse
  406. 3840 [153]"unreal"
  407. 3850 [153]"metalvotze"
  408. 3860 [153]"antinationale"
  409. 3870 [153]"lepsi developments"
  410. 3880 [153]"bonzai"
  411. 3890 [153]"the coder"
  412. 3900 [153]"mda"
  413. 3910 [153]"crest"
  414. 3920 [153]"role"
  415. 3930 [153]"triad"
  416. 3940 [153]"aspheron"
  417. 3950 [153]"driven"
  418. 3960 [153]"expect"
  419. 3970 [153]"paranoia"
  420. 3980 [153]"absyss"
  421. 3990 [153]"f4cg"
  422. 4000 [153]"rayden"
  423. 4010 [153]"mayhem designs"
  424. 4020 [153]"active"
  425. 4030 [153]"seldom"
  426. 4040 [153]"plush"
  427. 4050 [153]"fraction"
  428. 4060 [153]"hell"
  429. 4070 [153]"xenon"
  430. 4080 [153]"tat"
  431. 4090 [153]"leader"
  432. 4100 [153]"ispel"
  433. 4110 [153]"krg"
  434. 4120 [153]"scorn"
  435. 4130 [153]"amenesia"
  436. 4140 [153]"padua"
  437. 4150 [153]"propaganda"
  438. 4160 [153]"nitro"
  439. 4170 [153]"arachnophobia"
  440. 4180 [153]"spiders"
  441. 4190 [153]"resource"
  442. 4200 [153]"mad+bad"
  443. 4210 [153]"impulse"
  444. 4220 [153]"megaunit"
  445. 4230 [153]"cult"
  446. 4240 [153]"tdu"
  447. 4250 [153]"system"
  448. 4260 [153]"genesis"
  449. 4270 [153]"caution"
  450. 4280 [153]"cmm"
  451. 4290 [153]"black-mail"
  452. 4300 [153]"commtex"
  453. 4310 [153]"street children"
  454. 4320 [153]"tdr"
  455. 4330 [153]"chromance"
  456. 4340 [153]"mdg"
  457. 4350 [153]"domination"
  458. 4360 [153]"agony"
  459. 4370 [153]"game factory"
  460. 4380 [153]"shelters"
  461. 4390 [153]"trans-x"
  462. 4400 [153]"zoom"
  463. 4410 [153]"kreciki"
  464. 4420 [153]"faith"
  465. 4430 [153]"acid"
  466. 4440 [153]"starion"
  467. 4450 [153]"beastie boys"
  468. 4460 [153]"the list stops here ..."
  469. 4470 [129]a[178]1[164]200:[130]
  470. 4480 [153]"load":[151]53280,0:[151]53281,0
  471. 4490 [153]""
  472. 4500 [153]"the demo too !"
  473. 4510 [129]a[178]1[164]2000:[130]
  474. 4520 [153]"load"
  475. 4530 [153]"this was the demo 'driage'"
  476. 4540 [153]"from the ultimate majas 'tum'"
  477. 4550 [153]"code was done by:"
  478. 4560 [153]"fantastic zool & mbb"
  479. 4570 [153]"this basic-demo was coded"
  480. 4580 [153]"for the publication basic-"
  481. 4590 [153]"demo competition !"
  482. 4600 [137]4600
  483.